home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / CHECKFP.ICN < prev    next >
Text File  |  1990-03-28  |  13KB  |  239 lines
  1. procedure main()
  2.    p1()
  3.    p2()
  4.    p3()
  5.    p4()
  6.    p5()
  7.    p6()
  8. end
  9.  
  10. procedure p1()
  11.    write("every 1 to 10 do write(?0) ----> ",image(every 1 to 10 do write(?0)) | "none")
  12.    write("every i := 1 to 50 do write(real(repl(\"0\",i) || \"2.\")) ----> ",image(every i := 1 to 50 do write(real(repl("0",i) || "2."))) | "none")
  13.    write("every i := 1 to 30 do write(integer(repl(\"0\",i) || \"2\")) ----> ",image(every i := 1 to 30 do write(integer(repl("0",i) || "2"))) | "none")
  14.    write("2.0 ~=== +2.0 ----> ",image(2.0 ~=== +2.0) | "none")
  15.    write("abs(3.0) ----> ",image(abs(3.0)) | "none")
  16.    write("image(2e13) ----> ",image(image(2e13)) | "none")
  17.    write("image(0.0006) ----> ",image(image(0.0006)) | "none")
  18.    write("image(2.0) ----> ",image(image(2.0)) | "none")
  19.    write("integer(2.0) ----> ",image(integer(2.0)) | "none")
  20.    write("integer(2.7) ----> ",image(integer(2.7)) | "none")
  21.    write("integer(\".\") ----> ",image(integer(".")) | "none")
  22.    write("integer(\".3\") ----> ",image(integer(".3")) | "none")
  23.    write("integer(\"0.3\") ----> ",image(integer("0.3")) | "none")
  24.    write("integer(\" . 3\") ----> ",image(integer(" . 3")) | "none")
  25.    write("integer(\"e2\") ----> ",image(integer("e2")) | "none")
  26.    write("integer(\"3e500\") ----> ",image(integer("3e500")) | "none")
  27.    write("numeric(2.0) ----> ",image(numeric(2.0)) | "none")
  28.    write("numeric(2.7) ----> ",image(numeric(2.7)) | "none")
  29.    write("numeric(\".\") ----> ",image(numeric(".")) | "none")
  30.    write("numeric(\".3\") ----> ",image(numeric(".3")) | "none")
  31.    write("numeric(\"0.3\") ----> ",image(numeric("0.3")) | "none")
  32. end
  33.  
  34. procedure p2()
  35.    write("numeric(\" . 3\") ----> ",image(numeric(" . 3")) | "none")
  36.    write("numeric(\"e2\") ----> ",image(numeric("e2")) | "none")
  37.    write("numeric(\"3e500\") ----> ",image(numeric("3e500")) | "none")
  38.    write("real(2) ----> ",image(real(2)) | "none")
  39.    write("real(2.0) ----> ",image(real(2.0)) | "none")
  40.    write("real(2.7) ----> ",image(real(2.7)) | "none")
  41.    write("real(\"2\") ----> ",image(real("2")) | "none")
  42.    write("real(\" 2\") ----> ",image(real(" 2")) | "none")
  43.    write("real(\"2 \") ----> ",image(real("2 ")) | "none")
  44.    write("real(\"+2\") ----> ",image(real("+2")) | "none")
  45.    write("real(\"-2\") ----> ",image(real("-2")) | "none")
  46.    write("real(\"- 2\") ----> ",image(real("- 2")) | "none")
  47.    write("real(\" -    2 \") ----> ",image(real(" -    2 ")) | "none")
  48.    write("real(\"\") ----> ",image(real("")) | "none")
  49.    write("real(\"--2\") ----> ",image(real("--2")) | "none")
  50.    write("real(\" \") ----> ",image(real(" ")) | "none")
  51.    write("real(\"-\") ----> ",image(real("-")) | "none")
  52.    write("real(\"+\") ----> ",image(real("+")) | "none")
  53.    write("real(\".\") ----> ",image(real(".")) | "none")
  54.    write("real(\".3\") ----> ",image(real(".3")) | "none")
  55.    write("real(\"0.3\") ----> ",image(real("0.3")) | "none")
  56.    write("real(\" . 3\") ----> ",image(real(" . 3")) | "none")
  57.    write("real(\"e2\") ----> ",image(real("e2")) | "none")
  58.    write("real(\"3e500\") ----> ",image(real("3e500")) | "none")
  59.    write("real(\"7r4\") ----> ",image(real("7r4")) | "none")
  60.    write("real(\"4r7\") ----> ",image(real("4r7")) | "none")
  61.    write("real(\"4r 7\") ----> ",image(real("4r 7")) | "none")
  62.    write("real(\"7r 4\") ----> ",image(real("7r 4")) | "none")
  63.    write("real(\"16rff\") ----> ",image(real("16rff")) | "none")
  64.    write("real(\"36rcat\") ----> ",image(real("36rcat")) | "none")
  65.    write("real(\"36Rcat\") ----> ",image(real("36Rcat")) | "none")
  66.    write("real(\"36rCAT\") ----> ",image(real("36rCAT")) | "none")
  67.    write("real(\"1r1\") ----> ",image(real("1r1")) | "none")
  68.    write("real(\"2r0\") ----> ",image(real("2r0")) | "none")
  69.    write("real(\"22222222222222222222222222222\") ----> ",image(real("22222222222222222222222222222")) | "none")
  70.    write("numeric(2.0) ----> ",image(numeric(2.0)) | "none")
  71.    write("numeric(2.7) ----> ",image(numeric(2.7)) | "none")
  72.    write("numeric(.3) ----> ",image(numeric(.3)) | "none")
  73.    write("numeric(0.3) ----> ",image(numeric(0.3)) | "none")
  74.    write("numeric(e2) ----> ",image(numeric(e2)) | "none")
  75.    write("36. ^ 9 ----> ",image(36. ^ 9) | "none")
  76.    write("36 ^ 9. ----> ",image(36 ^ 9.) | "none")
  77.    write("36. ^ 9. ----> ",image(36. ^ 9.) | "none")
  78.    write("-36. ^ 9 ----> ",image(-36. ^ 9) | "none")
  79.    write("-36. ^ -9 ----> ",image(-36. ^ -9) | "none")
  80.    write(image(every i := 1 to 37 do write(real(repl("2",i) || "."))) | "failed")
  81.    write(image(every i := 1 to 37 do write(real(repl("2",i) || ".2"))) | "failed")
  82.    write(image(every i := 1 to 37 do write((repl("2",i) || ".2") + 1)) | "failed")
  83.    write("2.0 === +2.0 ----> ",image(2.0 === +2.0) | "none")
  84.    write("?30.0 ----> ",image(?30.0) | "none")
  85. end
  86.  
  87. procedure p3()
  88.    write("copy(1.0) ----> ",image(copy(1.0)) | "none")
  89.    write("trim(3.14159,58) ----> ",image(trim(3.14159,58)) | "none")
  90.    write("image(2e13) ----> ",image(image(2e13)) | "none")
  91.    write("image(0.0006) ----> ",image(image(0.0006)) | "none")
  92. end
  93.  
  94. procedure p4()
  95.    write("image(2.0) ----> ",image(image(2.0)) | "none")
  96.    write("string(2.0) ----> ",image(string(2.0)) | "none")
  97.    write("string(2.7) ----> ",image(string(2.7)) | "none")
  98.    write("string(\".\") ----> ",image(string(".")) | "none")
  99.    write("string(\".3\") ----> ",image(string(".3")) | "none")
  100.    write("string(\"0.3\") ----> ",image(string("0.3")) | "none")
  101.    write("string(\" . 3\") ----> ",image(string(" . 3")) | "none")
  102.    write("string(\"e2\") ----> ",image(string("e2")) | "none")
  103.    write("string(\"3e500\") ----> ",image(string("3e500")) | "none")
  104.    write("type(1.0) ----> ",image(type(1.0)) | "none")
  105.    write("cset(2.0) ----> ",image(cset(2.0)) | "none")
  106.    write("cset(2.7) ----> ",image(cset(2.7)) | "none")
  107.    write("cset(\".\") ----> ",image(cset(".")) | "none")
  108.    write("cset(\".3\") ----> ",image(cset(".3")) | "none")
  109.    write("cset(\"0.3\") ----> ",image(cset("0.3")) | "none")
  110.    write("cset(\" . 3\") ----> ",image(cset(" . 3")) | "none")
  111.    write("cset(\"e2\") ----> ",image(cset("e2")) | "none")
  112.    write("cset(\"3e500\") ----> ",image(cset("3e500")) | "none")
  113.    write("+1.0 ----> ",image(+1.0) | "none")
  114.    write("-1.0 ----> ",image(-1.0) | "none")
  115. end
  116.  
  117. procedure p5()
  118.    write("real(2) ----> ",image(real(2)) | "none")
  119.    write("real(2.0) ----> ",image(real(2.0)) | "none")
  120.    write("real(2.7) ----> ",image(real(2.7)) | "none")
  121.    write("real(\"2\") ----> ",image(real("2")) | "none")
  122.    write("real(\" 2\") ----> ",image(real(" 2")) | "none")
  123.    write("real(\"2 \") ----> ",image(real("2 ")) | "none")
  124.    write("real(\"+2\") ----> ",image(real("+2")) | "none")
  125.    write("real(\"-2\") ----> ",image(real("-2")) | "none")
  126.    write("real(\"- 2\") ----> ",image(real("- 2")) | "none")
  127.    write("real(\" -    2 \") ----> ",image(real(" -    2 ")) | "none")
  128.    write("real(\"\") ----> ",image(real("")) | "none")
  129.    write("real(\"--2\") ----> ",image(real("--2")) | "none")
  130.    write("real(\" \") ----> ",image(real(" ")) | "none")
  131.    write("real(\"-\") ----> ",image(real("-")) | "none")
  132.    write("real(\"+\") ----> ",image(real("+")) | "none")
  133.    write("real(\".\") ----> ",image(real(".")) | "none")
  134.    write("real(\".3\") ----> ",image(real(".3")) | "none")
  135.    write("real(\"0.3\") ----> ",image(real("0.3")) | "none")
  136.    write("real(\" . 3\") ----> ",image(real(" . 3")) | "none")
  137.    write("real(\"e2\") ----> ",image(real("e2")) | "none")
  138.    write("real(\"3e500\") ----> ",image(real("3e500")) | "none")
  139.    write("real(\"7r4\") ----> ",image(real("7r4")) | "none")
  140.    write("real(\"4r7\") ----> ",image(real("4r7")) | "none")
  141.    write("real(\"4r 7\") ----> ",image(real("4r 7")) | "none")
  142.    write("real(\"7r 4\") ----> ",image(real("7r 4")) | "none")
  143.    write("real(\"16rff\") ----> ",image(real("16rff")) | "none")
  144.    write("real(\"36rcat\") ----> ",image(real("36rcat")) | "none")
  145.    write("real(\"36Rcat\") ----> ",image(real("36Rcat")) | "none")
  146.    write("real(\"36rCAT\") ----> ",image(real("36rCAT")) | "none")
  147.    write("real(\"1r1\") ----> ",image(real("1r1")) | "none")
  148.    write("integer(2.0) ----> ",image(integer(2.0)) | "none")
  149.    write("integer(2.7) ----> ",image(integer(2.7)) | "none")
  150.    write("integer(\".\") ----> ",image(integer(".")) | "none")
  151.    write("integer(\".3\") ----> ",image(integer(".3")) | "none")
  152.    write("integer(\"0.3\") ----> ",image(integer("0.3")) | "none")
  153.    write("integer(\" . 3\") ----> ",image(integer(" . 3")) | "none")
  154.    write("numeric(2.0) ----> ",image(numeric(2.0)) | "none")
  155.    write("numeric(2.7) ----> ",image(numeric(2.7)) | "none")
  156.    write("numeric(\".\") ----> ",image(numeric(".")) | "none")
  157.    write("numeric(\".3\") ----> ",image(numeric(".3")) | "none")
  158.    write("numeric(\"0.3\") ----> ",image(numeric("0.3")) | "none")
  159.    write("numeric(\" . 3\") ----> ",image(numeric(" . 3")) | "none")
  160.    write("real(2.0) ----> ",image(real(2.0)) | "none")
  161.    write("real(2.7) ----> ",image(real(2.7)) | "none")
  162.    write("real(\".\") ----> ",image(real(".")) | "none")
  163.    write("real(\".3\") ----> ",image(real(".3")) | "none")
  164.    write("real(\"0.3\") ----> ",image(real("0.3")) | "none")
  165.    write("real(\" . 3\") ----> ",image(real(" . 3")) | "none")
  166.    write("abs(3.0) ----> ",image(abs(3.0)) | "none")
  167.    write("abs(0.0) ----> ",image(abs(0.0)) | "none")
  168.    write("abs(-3.0) ----> ",image(abs(-3.0)) | "none")
  169.    write("36. % 7 ----> ",image(36. % 7) | "none")
  170.    write("36 % 7. ----> ",image(36 % 7.) | "none")
  171.    write("36. % 7. ----> ",image(36. % 7.) | "none")
  172.    write("-36. % 7 ----> ",image(-36. % 7) | "none")
  173.    write("36 % -7. ----> ",image(36 % -7.) | "none")
  174.    write("-36. % -7. ----> ",image(-36. % -7.) | "none")
  175.    write("36. * 9 ----> ",image(36. * 9) | "none")
  176.    write("36 * 9. ----> ",image(36 * 9.) | "none")
  177.    write("36. * 9. ----> ",image(36. * 9.) | "none")
  178.    write("-36. * 9 ----> ",image(-36. * 9) | "none")
  179. end
  180.  
  181. procedure p6()
  182.    write("36 * -9. ----> ",image(36 * -9.) | "none")
  183.    write("-36. * -9. ----> ",image(-36. * -9.) | "none")
  184.    write("36. / 9 ----> ",image(36. / 9) | "none")
  185.    write("36 / 9. ----> ",image(36 / 9.) | "none")
  186.    write("36. / 9. ----> ",image(36. / 9.) | "none")
  187.    write("-36. / 9 ----> ",image(-36. / 9) | "none")
  188.    write("36 / -9. ----> ",image(36 / -9.) | "none")
  189.    write("-36. / -9. ----> ",image(-36. / -9.) | "none")
  190.    write("36. + 9 ----> ",image(36. + 9) | "none")
  191.    write("36 + 9. ----> ",image(36 + 9.) | "none")
  192.    write("36. + 9. ----> ",image(36. + 9.) | "none")
  193.    write("-36. + 9 ----> ",image(-36. + 9) | "none")
  194.    write("36 + -9. ----> ",image(36 + -9.) | "none")
  195.    write("-36. + -9. ----> ",image(-36. + -9.) | "none")
  196.    write("1. < 1 ----> ",image(1. < 1) | "none")
  197.    write("1 < 2. ----> ",image(1 < 2.) | "none")
  198.    write("1. < 0. ----> ",image(1. < 0.) | "none")
  199.    write("-1 < 0. ----> ",image(-1 < 0.) | "none")
  200.    write("1. < -2 ----> ",image(1. < -2) | "none")
  201.    write("-1 < -0. ----> ",image(-1 < -0.) | "none")
  202.    write("1. > 1 ----> ",image(1. > 1) | "none")
  203.    write("1 > 2. ----> ",image(1 > 2.) | "none")
  204.    write("1. > 0. ----> ",image(1. > 0.) | "none")
  205.    write("-1 > 0. ----> ",image(-1 > 0.) | "none")
  206.    write("1. > -2 ----> ",image(1. > -2) | "none")
  207.    write("-1 > -0. ----> ",image(-1 > -0.) | "none")
  208.    write("1. <= 1 ----> ",image(1. <= 1) | "none")
  209.    write("1 <= 2. ----> ",image(1 <= 2.) | "none")
  210.    write("1. <= 0. ----> ",image(1. <= 0.) | "none")
  211.    write("-1 <= 0. ----> ",image(-1 <= 0.) | "none")
  212.    write("1. <= -2 ----> ",image(1. <= -2) | "none")
  213.    write("-1 <= -0. ----> ",image(-1 <= -0.) | "none")
  214.    write("1. >= 1 ----> ",image(1. >= 1) | "none")
  215.    write("1 >= 2. ----> ",image(1 >= 2.) | "none")
  216.    write("1. >= 0. ----> ",image(1. >= 0.) | "none")
  217.    write("-1 >= 0. ----> ",image(-1 >= 0.) | "none")
  218.    write("1. >= -2 ----> ",image(1. >= -2) | "none")
  219.    write("-1 >= -0. ----> ",image(-1 >= -0.) | "none")
  220.    write("1. = 1 ----> ",image(1. = 1) | "none")
  221.    write("1 = 2. ----> ",image(1 = 2.) | "none")
  222.    write("1. = 0. ----> ",image(1. = 0.) | "none")
  223.    write("-1 = 0. ----> ",image(-1 = 0.) | "none")
  224.    write("1. = -2 ----> ",image(1. = -2) | "none")
  225.    write("-1 = -0. ----> ",image(-1 = -0.) | "none")
  226.    write("1. ~= 1 ----> ",image(1. ~= 1) | "none")
  227.    write("1 ~= 2. ----> ",image(1 ~= 2.) | "none")
  228.    write("1. ~= 0. ----> ",image(1. ~= 0.) | "none")
  229.    write("-1 ~= 0. ----> ",image(-1 ~= 0.) | "none")
  230.    write("1. ~= -2 ----> ",image(1. ~= -2) | "none")
  231.    write("-1 ~= -0. ----> ",image(-1 ~= -0.) | "none")
  232.    write("36. ^ 9 ----> ",image(36. ^ 9) | "none")
  233.    write("36 ^ 9. ----> ",image(36 ^ 9.) | "none")
  234.    write("36. ^ 9. ----> ",image(36. ^ 9.) | "none")
  235.    write("-36. ^ 9 ----> ",image(-36. ^ 9) | "none")
  236.    write("-36. ^ -9 ----> ",image(-36. ^ -9) | "none")
  237.    write("end of checkfp")
  238. end
  239.